0 IFX=.THENPOKE55,.:POKE56,128:CLR:X=1
5 IFX=1THENX=2:LOAD"PS.XVERT.ML",8,1
10 GOSUB60100:CLR
20 CLOSE15:OPEN15,8,15:PRINT"[147]":GOSUB3000
23 PRINT"[197]NTER [208]RINT [211]HOP FILENAME TO CONVERT"
24 PRINT"([209] [209]UITS) ==>                [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";
25 GOSUB60500:F$=B$
26 IFF$="Q"ORF$="[209]"THEN2000
30 D$="N."+F$:D$=D$+",P,W"
32 PRINT#15,"R0:"+F$+"="+F$:INPUT#15,ER
34 IFER=63THEN40
36 PRINT"            [198][201][204][197] [206][207][212] [198][207][213][206][196]!":FORA=1TO1000:NEXT
38 PRINT"[145]                                      [145][145][145][145][145]":GOTO23
40 OPEN2,8,2,F$:GOSUB5000:IF NOT OK THENCLOSE2:GOTO20
45 OPEN3,8,3,D$:GOSUB5000:IF NOT OK THENCLOSE3:GOTO20
50 GET#2,A$,B$:PRINT#3,CHR$(ASC(A$+CHR$(0)))CHR$(ASC(B$+CHR$(0)));
60 :
70 FORX=0TO44:PRINT".";
80 FORY=0TO5:GET#2,A$
90 A=ASC(A$+CHR$(0))
92 SYS32768,A
94 PRINT#3,CHR$(PEEK(251));
95 IFY<>5THENPRINT#3,CHR$(PEEK(252));
96 NEXTY:NEXTX:GOSUB5000:IF NOT OK THEN20
98 :
100 REM  FILL IN THE REST OF THE REST
110 FORX=1TO82:PRINT#3,CHR$(0);:NEXT
120 CLOSE2:CLOSE3:PRINT
130 PRINT"         [196]ONE WITH CONVERSION."
140 PRINT"[206]EW FILENAME IS N."F$
160 PRINT"        [208]RESS [211][208][193][195][197] TO CONTINUE":POKE198,.
170 IFPEEK(203)<>60THEN170
180 GOTO20
2000 REM  QUIT
2010 PRINT#15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,E:IFE<>63THENCLOSE15:END
2020 CLOSE15:LOAD"HELLO CONNECT",8
2998 REM *** INSTRUCTIONS ***
3000 PRINT"[147]          [208]RINT [211]HOP [195]ONVERTER"
3005 PRINT"[208]RINT [211]HOP [201]MAGES PUBLISHED IN [204]OADSTAR"
3010 PRINT"ARE IN THE 1525 PRINTER FORMAT.  [201]F"
3020 PRINT"YOUR [208]RINT [211]HOP [208]ROGRAM DOES NOT "
3030 PRINT"RECOGNIZE THEM AS THEY ARE, THIS UTILITY"
3040 PRINT"WILL CONVERT THEM TO THE FORMAT REQUIRED"
3050 PRINT"BY OTHER PRINTERS."
3990 RETURN
5000 OK=-1:INPUT#15,E,E$,T,S
5010 IFE=0THENRETURN
5015 C$=","
5020 PRINT"[147][196]ISK [197]RROR! "E;C$;E$;C$;T;C$;S
5030 PRINT"        [208]RESS [211][208][193][195][197] TO CONTINUE":OK=0
5035 GOSUB6000:IFT$<>" "THEN5035
5040 RETURN
6000 POKE198,0:WAIT198,1:GETT$:RETURN
60100 POKE53280,14:POKE53281,14
60110 PRINT"[147][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
60120 FORA=1TO23:PRINT"[221]"SPC(38)"[221]";:NEXT
60130 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][157][148][192]"
60140 FORA=217TO242:POKEA,PEEK(A)OR128:NEXT
60150 PRINT"          [204][207][193][196][211][212][193][210] [208]RESENTS:"
60160 PRINT"                               "
60170 PRINT"       [208]RINT [211]HOP [195]ONVERTER [214]2  "
60180 PRINT"                                "
60190 PRINT"          [194]Y  [193]LAN [199]ARDNER      "
60200 PRINT"       [213]PDATED [194]Y [205]IKE [205]AYNARD  "
60210 PRINT"                                "
60220 PRINT"           [195]OPYRIGHT 1987       "
60230 PRINT"                                "
60240 PRINT"                                "
60250 PRINT"        [208]RESS [211][208][193][195][197] TO CONTINUE"
60260 IFPEEK(203)<>60THEN60260
60270 RETURN
60500 B$="":PRINT"[164]";:POKE198,.:FORA=1TO17
60510 GETA$:IFA$=""THEN60510
60520 IFA$=CHR$(13)THENPRINT"[157] ":RETURN
60530 IFA$=CHR$(20)ANDA>1THENPRINT"[157][157]  [157][157][164]";:A=A-1:B$=LEFT$(B$,A-1):GOTO60510
60540 IFA=17THEN60510
60550 IFA$>=" "ANDA$<="Z"THEN60580
60560 IFA$>="[193]"ANDA$<="[218]"THEN60580
60570 GOTO60510
60580 PRINT"[157]"A$;:POKE212,.:PRINT"[164]";:B$=B$+A$:NEXT